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Subject: New Strategy for Conversion of Terminal Output 



The parts of the ring zero typewriter DIM concerned with 
character conversion -- i.e.* the subroutines tty_read and 
tty_write — have remained largely unchanged in design for a long 
time. The process of character conversion on Mu 1 1 i c s is currently 
very slow and inefficient* in particular taking no advantage of 
EIS. The problem is especially acute with respect to output* 
since there is in general about 8 times as much terminal output 
as terminal input; accordingly tty_write is a major bottleneck in 
ring zero. This MTB describes a proposed redesign of tty_write 
which will speed it up considerably without any loss of function. 
Similar changes are planned for tty_read at a later date. 



IHE_£URfiEflI_Q£LtiQ&_QE-flUIEUI-C.QAU£EfiSlQN 

In tty_write as currently implemented* each character of 
user- suppl i ed data is individually examined and looked up in 
various tables to determine what should oe placed in output 
ouffers to be sent to the 355 and thence to the terminal. Even in 
"rawo" mode* where the user's data is passed on with no 
conversion* each character is nonetheless copied individually* 
with the count of characters being incrementeo one at a time. 
When either the end of the user's data is reacned or the maximum 
number of ring-zero buffers the user is allowed to have is 
filled* conversion stops and* if appropriate* the data so far 
converted is shipped to the 355. 



Tiiis mechanism has the obvious advantage of simplicity: it 
is particularly easy to keep track of how many of tne user's 
characters have been transmitted and how much buffer space is 
being used. However* this aovantage is more than offset by the 
loss of efficiency in processing characters one at a time. In 
addition* the tables used for the conversion are kept* by 
terminal type* in a ring zero data base (tty_ctl)* and pointers 
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to them are derived by tty_write every time it is called. In this 
setuo* no method is available for the user to substitute his/her 
own translation tables. Still worse/ the same table is used both 
for determining whether a character is "special" (requires 
escaping or the addition of delays) and for converting from ASCII 
to some "foreign" code (such as EBCDIC); tnis situation makes it 
virtually impossible to avoid' looking up and doing something 
about every character input to tty_write. 



EBQBQSta_JSi£W_i3EIUilQ 

The new design is predicated on the assumption that the vast 
majority of characters sent to the user's terminal are 
"uninteresting" -- i. e.* they are to be shipped as they are* 
they do not require delays* and each one advances the carriage by 
one position. A block of such characters can clearly be copied 
into tty.buf all at once with a single E I S instruction* or at 
least in buffer-sized chunks. The only problem is identifying the 
limits of such a block* and making the necessary additions and 
substitutions when an "interesting" character is encountered. 
Wholesale translation (e. g.* ASCII to EBCDIC) is a separate 
issue* and can also be dealt with economically using EIS. 



The functions of tty_write can be logically divided into 
four phases: 



1. P££liELQa£X_C.QQY.£J:aiQO (specifically the translation of 
of lowercase letters to uppercase for a Teletype model 33 
or terminals in "capo" mode; 

2. Fo.rm.a_lt.iria' i.e.* substitution of escape sequences* 
insertion of new-line characters in long lines* 
ca non i c a I i za t i on and op t i mi z i at i on of white space* etc.; 

3. IcaosLatiCQ' as from ASCII to EBCDIC; 

4. §y 1 1 e r _a.iiQ£a.ti2n_ancJ_c.QjB^in3 of characters into buffers 
in tty_buf* whence they will be read by the 355. 

In the current tty_write* these four phases are executed more or 
less simultaneously on each character; in particular* phases 2. 
and 3 (formatting and translation) are not distinguished* and are 
driven oy the same table. The new design executes each phase over 
the entire input string (or as much of it as will be transmitted 
at once) before passing on to the next phase. In most cases* of 
course* either phase 1 or phase 3 or both can be omitted; in 
"rawo" mode* tty_write can and does proceed directly to phase 4. 
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Each phase is provided with an "input pointer" to the 
Location where the previous phase left the data in its Latest 
form. Tnis pointer points either to the user's original input or 



to either of two ouffs 
des cr i Ded later. 



rs in tty.wnte s automatic storage* 



as 



Tne only serious disadvantage to this scheme is that the 
deter rrina t i on of how many of the user's characters are actually 
to be shipped must be made in advance of conversion* and this 
determination must attempt to take into account the proeaoility 
that the final output will contain more characters than the user 
supplied. There is no ideal solution to this problem* but one has 
been developed which ensures that the program will behave 
correctly in all cases/ and in general will have the same effect 
as today (in terms of the number of calls required to output a 
given string* the pressure put on tty_buf* etc.). This solution 
is descrioed later in this document. 



Extensive use has been made in this design of three E I S 
instruction; : move with translation (mvt)* test character and 
translate (tct)* and scan with mask (scm). PL/I builtin functions 
such as translate do not completely meet our requirements; 
therefore an ALM subroutine* tty_util_* is supplied* containing 
entry points to perform the necessary functions. 



The remaining sections of this MT3 contain the following: 



1. A more detailed description of the four phases of 
conversion mentioned above; 

2. A discussion of space allocation and character counting; 

3. A description of the data structures used for conversion 
and translation* as well as an indication of the proposed 
method for allowing the user to substitute his own 
versions of the relevant tables; 



4. A module description of tty_util_« 



E££ii mina r Y._£p.ny.e.r s.i.o.0 



Certain terminals require uppercase -only output; similarly* 
a user can specify (oy entering "capo" mode) that all lowercase 
letters are to be converted to uppercase for output. These cases 
are treated identically by tty.write: an mvt (move with 
translation) instruction is used to copy the user's data into an 
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The search for/ and correct handling of/ "interesting" 
characters is the most crucial of tty_write*s functions/ and the 
one to which most of the time spent in tty_write is devoted. The 
identification of "interesting" characters is facilitated by the 
use of the tct (test character and- translate) instruction under 
control of a table containing zero entries for all 
"uninteresting" characters and various indicators identifying the 
different kinds of "interesting" ones: carriage movement 
characters/ ribbon shifts/ and characters requiring the 
suostitution of escape sequences. 
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carriage motion characters before the next graphic to be 
inserted* or discarded if the next character involves vertical 
carriage motion. This process is repeated until all the source 
characters are used up. If it happens that the first call to 
tty_util_$find_char returns an indicator of zero and has used up 
the entire source string/ no characters are moved by this phase. 



The subroutine tty_util_$find_char uses a 
find interesting characters/ but it must do oth 
In the first place/ for the instruction 
character has either or both of its high-order 
of 5 1 2 entries would be needed/ of which 384 w 
secondly/ a single blank between two printing 
interesting to tty_ write/ but two or more cons 
considered "white space/" as is any combination 
or more other carriage movement characters, 
case/ 1 1 y_ut i l_ S f ind_ cha r performs two scm inst 
the earliest character (if any) which does not 
For the case of multiple blanks/ it is clea 
nave a non-zero indicator in the tct table for 
force the tct to stop on all blanks/ test 
cnaracter is a blank/ and then proceed if it is 
tct is preceded by an sc d (scan character do 
which looks for two successive blanks. Tne 
returned to tty.write reflect the earliest poin 
string at which either the tct/ the scd/ or 
scm's found anything interesting. 
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It will be seen from the module description of 

tty_util_3.find.char later in this MT8 that a "white space" 
incicator implies that the pointer points to the beginning of a 
olock of white space/ which tty.write then examines until it 
finds the end of the block. Therefore if the first interesting 
character found by t t y_ut i l_$f i nd_char is a carriage movement 
character/ it must check to see if the immediately preceding 
character is a blank/ in which case it returns a pointer to the 
blank rather than the character following it. 
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tty_write no longer stops processing characters when the line 
count reaches maximum; instead/ the formatting phase inserts a 
warning string (such as "EOP") and a sentinel character at the 
end of the page* and the copying phase (see below) later removes 
each sentinel and turns on a flag in the buffer that ends the 
page. When dn3 55 (the program that actually sends the buffers to 
the 355) sees this flag* it ceases transmission* and qqw sets the 
flag in the fctl block. When it receives input for a channel with 
the end-of-page flag on* it scans this input for a form-feed; if 
it finds one* it replaces it with a PAD character (177(3))* turns 
off the fctl flag* and starts up output for the channel again. 
(1 ) 
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(1) A mode may be added in future which would allow a user to 
specify that when a page is full tne tty DIM should automatically 
output a form-feed rather than waiting for one to be input. On a 
hard-copy t er mi n a'l * ' t h is mode would probably make more sense than 
the current method. 
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The final phase of tty__write consists of allocating buffers 
in tty_buf and copying the final output into these buffers. A 
buffer in tty.ouf is 16 words long, of which the first contains a 
forward pointer/ flags, and a tally; each buffer therefore holds 
up to 60 characters, Thus one buffer is allocated by tty_write 
for every 60 characters of final output/ and the characters are 
copied in 60-character chunks. If an end-of-page sentinel is 
encountered/ the end-of-page flag is turned on in the current 
buffer/ and the buffer is not filled past the sentinel. If output 
already processed for the particular channel has not yet been 
sent/ a chain of buffers for that channel will already exist/ if 
the last buffer in this chain is not full/ and does not have its 
end-of-page flag on, it will be filled before further buffers are 
allocated. The newly-allocated buffers will be threaded onto the 
ci - cfcain. Finally/ if the "sena.ou tpu t" flag in the fctl block 
is on, indicating that a n 3 5 5 and the 355 itself are prepared to 
handle output for the channel, tty_write calls dn35 5 S i o_c omma no 
to cause a mailbox to be sent to the 355 telling it that output 
is on the way. 



SPACE_A^j.0CAT igfi_AND_£HARA£T£g_^y^JXNS 



because the input string undergoes wholesale modification at 
several points, it is necessary to decide how many of the user's 
characters to process oefore actually doing anything. Certain 
constraints whicn exist in the present implementation will be 
retained: no more than a certain fraction of available buffers in 
tty_ouf are to be assigned to a single channel at any time; and 
no output chain of more than a certain number of buffers will be 
ouilt. The particular numbers involved aret for the sake of 
convenience and simplicity, preset system-wide constants. The 
current values, which appear reasonable, are 1/4 and 16 
respectively; i.e., no channel is ever assigned more than 1/4 as 
many buffers as are free at the time of assignment, and a maximum 
of 16*6u = 960 characters will be processed by a single call to 
1 1 y_w r i te . 



The first determination made by tty_write, then, is the 
maximum number of buffers the caller is allowed to have, which 
i s : 

maxbuf = min(16, (bu f f e r s_l ef t /4 ) - bu f f e rs.ass i gn eo) 
The number of characters to process may then be expressed as 
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nchars = mi n ( c ha r s.supp I i ed / itaxbu f *c ha r s.per.b u f f e r ) 
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An additional consideration arises from the use of internal 
buffers in tty.write. Because of the possibility of more than one 
intermediate copy/ two such buffers are needed/ and rather than 
create two segments so as to allow each buffer to grow 
essentially without limit/ it was decided to set aside fixed-size 
buffers i n ' tt y_ w r i t e ' s stack frame. The size chosen for each of 
these buffers is the maximum allowable output chain size/ i. e./ 
apQ characters. 



Clearly growth ratios greater than 5:4 can and will 
there are pathological cases such as an object or other n 
segment he in; printeu on a 2 741 t ermi na I / which involves 
ratio of more than 5:1 ( <uppe r_sh i f t> i < lowe r_ sh i f t> 
each input character/ plus added new-lines and 4c markers 
despite precautions we must be prepared for the possibil 
in the course of translation or formatting we will run 
space in the internal buffer. When this happens/ the n 
input characters to be handled is cut in half/ and c 
processing is started over from phase 1. This sol 
admittedly crude/ but the alternative is to keep track 
times of the number of the user's characters which h 
processed/ which in so;ne cases (particularly the transf 
of white space) is non-trivial in the new scheme; 
inadvisable to incur this overhead on every call to tty_w 
order to avoid expense in a rare case. The problem w 
arise when attempting to process. 768 user characters of w 
unusually large number have to be escaped; considering 
average output message is around 50 characters/ the 
expense of double processing in such a case is not like 
significant. 
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on-ASC I I 
a growth 

nnn for 
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If space in tty_buf is unusuaLly tights then an abnormal 
character string which is not Large enough to overflow the 
internal ouffer space might nonetheless require the allocation of 
more buffers than are available. If tty_ write fin as that it is 
about to allocate the last buffer* it w i 1 1 take the same action 
as if it were about to overflow one of its internal buffers*' i. 
e.* divide the numoer of input characters in half and start over. 
This circumstance is considered even less probable than the 
overflowing of an internal buffer* if it happens often it is 
probably an indication that tty.buf is too small. 



we coulu* of course* reduce the frequency of overflow events 
still further by decreasing the percentage of the theoretical 
maximum number of characters that will actually be processed at 
once; however* this would increase the probability that the 

user's characters could not be handled in a single call* thereby 
requiring users to go blocked for output more often and 
increasing the number of calls to tty_write. The figures used in 
this MTB are a preliminary estimate oased on what seems 
reasonable/' they can easily be adjusted if metering shows either 
a high frequency of double processing or an excessive (i.e.* 
greatly increased) number of calls to tty_write. 



fc/kia-SIEUillUREi 



This section describes the tables to be used by tty_write 
for translation and formatting. Packed pointers to these tables 
will oe kept in the control block ( c t I ) a 1 1 ocat ed for each Line 
when it dials up; the default tables are in tty_ctl on a 
per-t'ermina l-type basis as at present* and pointers to these 
tables are copied from tty_ctl into the ctl block the first time 
tty_write is called for any one dialup. 



In a future modification* control operations will be 
provided to allow a user to substitute his/her own version of one 
or more of these tables. Macros (in mexp) may also be provided to 
facilitate the construction of such taoles. This capability* 
houever* introduces problems as long as the Answering Service 
does not use the secure (ring 1) message facility rather than 
calling hcs.Jtty .write directly. Write calls from the Initializer 
for a terminal using user- supp I i ed translation tables would 
reference pointers in the user's address space (not the 
Initializer's)* unich at oest would result in garbage being 
printed on the user's terminal. (A possible alternative to using 
the message facility is to have the Answering Service call a 
special entry uhich uses the default tables for the terminal type 
whether the user has supplied tables or not; the output might be 
-.larbled* but at Least the taoles would De accessible to the 



MULT1CS TECHNICAL BULLETIN MTB - 254 



page 10 



Initializer.) 



iieliyit _I§bie 



Ths header of tty_ctl contains an array/ indexed by terminal 

type/ of relative offsets of default tables. The default table 

contains relative pointers to the conversion tables to be used by 

default for the given terminal type. The format of the default 

table is as f ol lows: 



acl 1 dev ic e_def ault s aligned based* 
2 flags unal/ 

5 shifter bit (1) unal/ 
3 uppe r.case.on ly bit (1) unal/ 
3 pad bit (7) una I / 
delay.char char (1) unal/ 
char (1 ) unal/ 
char (1) unal/ 
fixed bin (18)/ 
f i xed bin (13) / 
specia l_of f set fixed oin (18)/ 
delay_offset (4) fixed bin (18)/" 



upper_case 
lower. ca se 
t c t _ o f fset 
mv t offset 



sh i f t er 



upper _ca se.on ly 



□elay_char 



is "1"b if the terminal requires case 
shift characters. 

is "1"b if the terminal handles only 
capital letters. 

is the ASCII form of the character used 
for carriage movement delays. 



upper_case 
lower .case 
tct offset 



n. v t offset 



is the uppercase shift character, 
is the lowercase shift character. 

is the relative offset (in tty_ctl) of 

the default table used by 

t ty.ut i l_Sf ind.char for identifying 
"special" characters. 

is the relative offset of the table used 
by tty_ut i l.Smvt for trans la t i on/ or 
if translation is not required for the 
particular terminal type. 
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spec i a L_of f se t 



is the relative offset of the default 
version of the sp ec i a l_ char s table 
described De low. 



ae lay .offset 



is an array of offsets of the 
delay_taoles (described below) to be 
used for this terminal type at 110/ 150* 
300/ and 1200 bps respectively. 



£i____ _!__._ .casts, __._I_si.fi 



of 



The special characters table is used by the formatting phase 
tty_write. It has the following format: 



del 1 sp ec i a l_ char s aliyned based/ 
2 c m t ( 6 ) a I i y n e d / 

3 count fixed bin (8) unal/ 

3 chars (3) char (1) unal/ 
2 printer_on aligned/ 

3 count fixed bin (8) unal/ 

3 chars (3) char (1) unal/ 
2 printer_off aligned/ 

3 count fixed Din (8) unal/ 

5 chars (3) char (1) unal/ 
2 red_ ri bbon_sh i f t aligned/ 

3 count fixed oin (8) unal/ 

3 cnars (3) char (1) unal/ 
2 ol ack_ r i bpon_ sh i f t aligned/ 

3 count fixed bin (8) unal/ 

3 chars (3) char (1) unal/ 
2 end_of_page aligned/ 

3 count fixed bin (8) unal/ 

3 chars (3) char (1) unal/ 
2 es cape_l engt h fixed bin/ 
2 not_edi t ea.escapes (10 refer ( escape_le ngth ) ) / 

3 count fixed bin (8) unal/ 

3 chars (3) char (1) unal/ 
2 ed i t ed_escapes (10 refer ( escape., length )) / 

3 count fixed bin (8) unal/ 

3 chars (3) char (1) unal; 



Note: In each of the level 2 substructures in this structure 
Declaration/ count/ which has a value <= count <= 3/ indicates 
the numoer of characters in the sequence* the first count 

elements of the chars array is the sequence itself. If count is 
zero/ there is no sequence for the character in question. 
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cmt 



describes the character sequences to be 
used for the six carriage movement 
characters/ in this order: new-Line* 
carriaye return/ backspace/ horizontal 
tab/ vertical tab/ form-feed. If count 
is zero/ the carriage movement function 
in question is not available on the 
terminal. In this case/ the following 
act ion is taken ; 



new- I i ne 
carriage return 



<i nva li d> 

substitute appropriate 
number of backspaces 



back space 



substitute carriage 
return and appropriate 
number of blanks and/or 
horizontal taos 



hori zont al tab 



substitute appropriate 
number of blanks 



vertical tab/ 
f orm-f eed 



ignore character 



The 



counts 



for carriage reurn and 



backspace may not both be zero. 



pnnter.on 



is the character sequence to be used to 
implement the "pri n ter_on" control 
ope ration. 



p r i n t e r _ o f f 



is the character sequence to be usea to 
implement the "p ri nter.o f f " control 
operat i on. 



r ed_r i bbon_sn i f t 



is the character sequence to be 
substituted for a red ribbon-shift 
character. 



blac k_r i bbon_ sh i f t is the character sequence to be 

substituted for a black ribbon-shift 
character. 



end_of_paqe 



is the character sequence to be printeo 
to indicate that a page of output is 
full. 



escape_lengtn 



is the number of output escape sequences 
in each of the two escape arrays. 
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not_edited_ escapes 



is an array of escape sequences to be 
substituted for particular characters if 
the terminal is in ""edited" mode. This 

^ r r a \j ic "i n H p v a H arrnrHin.n frv tKp 

indicator returned by 

tty_ut i l_Sfind_char. 



edit ed_e scapes 



is an array of escape sequences to be 
used in "edited" mode. It is- indexed in 
the same fashion as not.ed i t ed_ escape s. 



££la¥..Iabl.e 



The delay table provides the number of delays to be used in 
conjunction with carriage movement characters. It has the 

following format: 



del 1 delay based aliyned* 

2 vert.nl fixed bin/ 

2 horz_nl fixed bin* 

2 const_tab fixed bin* 

2 var_tab fixed bin* 

2 backspace fixed bin* 

2 v t _ f f fixed bin; 



ver t_nl 



is the number of delay' characters to be 
output for all new- lines to allow for 
t he I i ne-f eed. 



hor z_nl 



is a factor used to determine the number 
of delays to be added for the carriage 
return portion of a new-line* depending 
on column position. Tne formula for 
calculating the numoer of delay 

characters to be output following a 
new- line is: 



ndelays = vert.nl + (horz_nl*column)/512 



con s t_tab 



is the constant portion of the number of 
delays associated with any horizontal 
tao character. 



var tab 



is a factor useo to determine the number 
of additional delays associated with a 
horizontal tab depending on the number 
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of columns traversed. The formula for 
calculating tne numoer of delays to be 
output following a horizontal tab is: 

ndelays = const.tab + ( va r_ t ab *n_columns ) /5 1 Z 



Lack spac e 



is the number of delays to be output 
following a backspace character. If it 
is negative^ it is the complement of the 
number of delays to be output with the 
first backspace of a series only (or a 
single backspace). This is for terminals 
such as the TermiNet 300 which need 
delays to allow for hammer recovery in 
case of overstrikes* but do not require 
delays for the carriage motion 
associated with the backspace itself. 



vt_f f 



is the number of delays to be output 
following a vertical tab or form-feed. 
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MQDUL£_fiL£ilBIELI3N_a£ tty_ut i l_ 



U a me: tty.ut i l_ 



The entries in this module are used for translation and 
formatting of typewriter input and output. All of them run in 
tne caller's stack frame* and take as an argument a pointer to an 
argument structure provided by the caller. 



EQ.LLX: tty.ut i l_$f ind.char 



This entry uses a tct (test character and translate) 
instruction to search a given string for "interesting" characters 



as aetmed by 



translation table supplied by the caller 



Uaaj£ 



declare t t y _ut i l_$ f i n d_ char entry (ptr); 
call t ty_u t i l_$f i nd_c ha r (argptr); 



where 



argptr 



is a pointer to the structure described 
below. ( Input ) 



del 1 



tct_arg_ structure based aligned* 
2 stringp ptr* 

string I fixed bin* 

tally f i xed bin* 

tab lep p tr * 

ind i ca tor f ix ed bin* 

workspace (3) fixed bin; 



st r i ngp 



st r i ng I 



is a pointer to the string to be tested* 
if indicator (see below) is 3 or 7 * it 
is updated to point to the first 
"interesting" character in the string; 
otherwise* it is updated to point to the 
character following the first 
"interesting" character. ( Input /Outpu t ) 

is the length in characters of the 
string tc oe tested. If stringl is 
greater than 2000* only the first 2000 
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tally 



tab I ep 



indicator 



characters are tested. stringl is 
decremented by the same number of 
characters as stringp is advanced. If 
the entire string is searched and 
indicator is G/ stringl is set to 0. 
( Input /Output ) 



is the number of 
characters passed over 
(Output) 



'uninteresting" 
by the test. 



is a pointer to an aligned packed array 
of 123 fixed bin (8) values to be used 
as a translation table. The elements 
correspond to ASCII characters in the 
normal collating sequence; the value 
each element is zero if 



corresponding 
uni n terest i ng* 
indicator to 
corresponding 
( Input ) 



character 
or else the value of 
oe returned if 



of 
the 

i s 
t he 
the 



character is encountered, 



is the result of the search. It may have 
the following values: 

-- no special characters 

1 -- new-line 

2 -- carriage return 

5 -- "white space/' i. e . * horizontal 
tab/ two or more consecutive 
blanks/ or a combination of one or 
more blanks and a tab or backspace 
character, stringp is set to point 
to the first "white space" 
character. 



4 -- backspace 

5 -- vertical tab 



6 — form- feed 

7 -- character requiring octal escape 

8 -- red r i bbon shift 

9 -- black riboon shift 
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icrkspace 



other — a character requiring a special 
escape sequence. The indicator 
value is the index into the 
escape table of the sequence to 
be used* pi us 16. 

is to be used by tty_util_ for temporary 
storage if necessary. 



EoXCy: t t y_ut i l_ $m vt 



This entry is used to translate a character string using an 
mvt (move with translation) instruction. 



Usa^e 



declare tt y_ut i I _$mvt entry (ptr); 
call t ty_ut i l_$mvt (argptr); 



where 



argptr 



is a pointer to the mv t_a r g_s t rue tu r e 
described below. (Input) 



del 1 mvt_arg_structure based aligned* 

2 stringp ptr* 

2 st r i ny I f i xed bin* 

2 pad fixed bin* 

2 tablep ptr* 

2 t a rgetp ptr* 

2 workspace (2) fixed bin; 



st r i ngp 
S t r i n g I 
tablep 

t a r g e t p 



is a pointer to the character string to 
be translated. (Input) 

is the length in characters of the 
string pointed to oy stringp. (Input) 

is a pointer to an aligned character 
string of Length 128 to be used as a 
translation table. (Input) 

is a pointer to the place where the 
translated string is to be placed; it 
must point to a character string of 
length stringl or greater. (Input) 
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work spac e 



is as above , 



£QiI¥: t t y_ut i l_$scm 



Tnis entry is used to search a character string for a 
character with one of its two high-order bits on/ using an scm 
(scan with mask) instruction. 



Usage 



declare tty_util_$scm entry (ptr); 
call t ty_ut i l_$scm (argptr); 



wrier e 



argptr 



points to the scm_a rg_s t rue t u re 

described below. (Input) 



del 1 scm_ar g_ st rue tur e based aligned/ 

2 stringp ptr/ 

2 stringl fixed bin/ 

2 tally f i xed bin/ 

2 search_mask bit (2) aligned/ 

2 found, flag bit (1) aligned/ 

2 workspace (4) fixed bin; 



s t r l n g p 



stringl 



tally 



search_mask 



is a pointer to the string to be 
scanned. If the scan succeeds/ it is 
updated to point to the character in 
question. ( Input /Output ) 

is the length of the string pointed to 
ay stringp. It is decremented by as many 
characters as stringp is advanced. 
( Input /Output) 

is the number of characters passed over 
during the scan (i. e./ the number of 
characters to the left of the character 
found/ or the length of the string if no 
character is found). (Output) 

is "10"b if the 400(8) bit is to be 
searched for/ or "01 "b if the 200(8) bit 
is to be searched for. (Input) 
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f ound_f lag 



is set to " 1 " b if a character with the 
bit specified d y search_mask on is 
found/ otherwise it is set to "0"b. 
(Output/ 



work space 



is as above . 



